Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/dsp/dspgroup/macros.arc/SUBX.ASM

Assembly Source File | 1983-11-17 | 2.1 KB | 27 lines

*
*SUBTRACT DOUBLE
*
SUBX   $MACRO  A         SUBTRACT DOUBLE
       $VAR ST,SM,SP
       $ASG '*' TO ST.S
       $ASG '*+' TO SP.S
       $ASG '*-' TO SM.S
       $IF A.SV=ST.SV
       SUBH *+           SUBTRACT HIGH
       SUBS *-           SUBTRACT LOW
       $ELSE
       $IF A.SV=SP.SV
       SUBH *+           SUBTRACT HIGH
       SUBS *+           SUBTRACT LOW
       $ELSE
       $IF A.SV=SM.SV
       SUBS *-           SUBTRACT LOW
       SUBH *-           SUBTRACT HIGH
       $ELSE
       SUBH :A:          SUBTRACT HIGH
       SUBS :A:+1        SUBTRACT LOW
       $ENDIF
       $ENDIF
       $ENDIF
       $END